'***********************************************************************
'*     Detlef Kornatz                                                  *
'*     Feuerbachstraße 6                                               *
'*     D-4300 ESSEN 1                                                  *
'***********************************************************************

SCREEN 2,320,258,5,1
WINDOW 2,"           Die neun Bäume ",,0,2
  
  PALETTE 0,0.34,0.44,0       
  PALETTE 1,0.2,0.2,0.2
  PALETTE 2,0.76,0.97,0
  COLOR 14,0
  LOCATE 1,1:PRINT "Zeichnen Sie 'vier' gerade Linien, die"
  LOCATE 3,1:PRINT "die neun Bäume mit einander verbinden."
  LOCATE 5,1:PRINT "Nicht absetzen oder zurückgehen,und Sie"
  LOCATE 7,1:PRINT "müssen'nicht'am Ausgangspunkt ankommen.
anfang:
  CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
  CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
  CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2  
  CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2  
  CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
  CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2  
  CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2  
  CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
  CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2

  LINE (10,215)-(60,240),4,bf
  LINE (9,214)-(61,241),17,b
  LINE (70,215)-(137,240),4,bf
  LINE (69,214)-(138,241),17,b  
  LINE (150,215)-(200,240),4,bf
  LINE (149,214)-(201,241),17,b  
  LINE (230,215)-(280,240),17,bf
  LINE (229,214)-(281,241),10,b
  COLOR 17,4
  LOCATE 29,4:PRINT "NEU"
  LOCATE 29,10:PRINT "ZEICHNEN"
  LOCATE 29,20:PRINT "LÖSUNG"
  COLOR 10,17
  LOCATE 29,31:PRINT "ENDE"
 
taste:
     ON MOUSE GOSUB mausdruck
     MOUSE ON
     WHILE 1 : WEND
mausdruck:
     druck=MOUSE(0)
     x=MOUSE(3) : y=MOUSE(4)
   IF x>10 AND x<60 AND y>215 AND y<240 THEN GOSUB neu
   IF x>70 AND x<135 AND y>215 AND y<240 THEN GOSUB zeich 
   IF x>170 AND x<180 AND y>230 AND y<240 THEN GOSUB aufloe
   IF x>230 AND x<270 AND y>215 AND y<240 THEN GOSUB  ende
RETURN
neu:
    LINE (0,0)-(310,210),0,bf
  CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
  CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
  CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2  
  CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2  
  CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
  CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2  
  CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2  
  CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
  CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
RETURN
aufloe:
  LINE (0,0)-(310,210),0,bf
  CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
  CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
  CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2  
  CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2  
  CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
  CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2  
  CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2  
  CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
  CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2
  FOR i=-0 TO 150 STEP 0.2
  PSET (180-i,180),4
  NEXT i
  FOR i=-0 TO 150 STEP 0.2
  PSET (30+i,180-i),4
  NEXT i
  FOR i=32 TO 180 STEP 0.2
  PSET (180,i),4
  NEXT i
  FOR i=0 TO 120 STEP 0.2
  PSET (180-i,180-i),4
  NEXT i
RETURN  
zeich:
    LINE (0,0)-(310,210),0,bf
  CIRCLE (80,80),8,2,,,1 :PAINT (80,80),2
  CIRCLE (80,130),8,2,,,1 :PAINT (80,130),2
  CIRCLE (80,180),8,2,,,1 :PAINT (80,180),2  
  CIRCLE (130,80),8,2,,,1 :PAINT (130,80),2  
  CIRCLE (130,130),8,2,,,1 :PAINT (130,130),2
  CIRCLE (130,180),8,2,,,1 :PAINT (130,180),2  
  CIRCLE (180,80),8,2,,,1 :PAINT (180,80),2  
  CIRCLE (180,130),8,2,,,1 :PAINT (180,130),2
  CIRCLE (180,180),8,2,,,1 :PAINT (180,180),2

   ON MOUSE GOSUB linien:GOSUB mau
   MOUSE ON
   WHILE -1
   WEND 
   linien:
   Test=MOUSE(0)
   x1=MOUSE(3) : y1=MOUSE(4)
   PSET (x1,y1),4
   WHILE MOUSE(0)<>0
   WEND
   LINE (x1,y1)-(MOUSE(5),MOUSE(6)),4
mau:
   dr=MOUSE(0)
   x=MOUSE(1) : y=MOUSE(2)
   IF x>10 AND x<60 AND y>215 AND y<240 THEN GOSUB neu
   IF x>170 AND x<180 AND y>230 AND y<240 THEN GOSUB aufloe
   IF x>230 AND x<270 AND y>215 AND y<240 THEN GOSUB  ende
   IF x>70 AND x<135 AND y>215 AND y<240 THEN GOSUB zeich 
   RETURN
    
ende:
   WINDOW CLOSE 1
   SCREEN CLOSE 1
   SYSTEM
   END
   
'**********************************************************************
' Detlef Kornatz
' Feuerbachstraße 6
' D-4300 ESSEN 1
'***********************************************************************